-- card: 57796 from stack: in
-- bmap block id: 58001
-- flags: 4000
-- background id: 2609
-- name: Bundle Pricing
----- HyperTalk script -----
on openCard
  global bundlePricing
  put "True" into bundlePricing
end openCard

on groupOne
  repeat with index = 1 to 5
    set hilite of card button index to false
  end repeat
  set hilite of target to true
  getPrice short name of target
end groupOne

on getPrice bundle
  lock screen
  set cursor to watch
  put numtochar of 18 into card field "Attendance"
  put numtochar of 18 into card field "Report Cards"
  put numtochar of 18 into card field "Marks"
  put numtochar of 18 into card field "Scheduling"
  put numtochar of 18 into card field "Library"
  put numtochar of 18 into card field "Advance Booking"
  put numtochar of 18 into card field "ASCII Transfer"
  put numtochar of 18 into card field "Scanning"
  put numtochar of 18 into card field "Query"
  put numtochar of 18 into card field "School Setup"
  put numtochar of 18 into card field "Student Details"
  put numtochar of 18 into card field "Teacher Details"
  put numtochar of 18 into card field "Course Details"
  put numtochar of 18 into card field "Guidance"
  put numtochar of 18 into card field "Health Records"
  put numtochar of 18 into card field "Report Manager"
  if not hilite of button "Multi-user" then
    if bundle is "Bundle A" then
      put card field "Bundle A" into card field "Price"
      put empty into card field "Advance Booking"
    end if
    if bundle is "Bundle B" then
      put card field "Bundle B" into card field "Price"
      put empty into card field "Advance Booking"
      put empty into card field "Health Records"
    end if
    if bundle is "Bundle #1" then
      put card field "Mini #1" into card field "Price"
      put empty into card field "Scheduling"
      put empty into card field "Library"
      put empty into card field "Advance Booking"
      put empty into card field "ASCII Transfer"
      put empty into card field "Scanning"
      put empty into card field "Guidance"
      put empty into card field "Health Records"
    end if
    if bundle is "Bundle #2" then
      put card field "Mini #2" into card field "Price"
      put empty into card field "Library"
      put empty into card field "Advance Booking"
    end if
    if bundle is "Bundle #3" then
      put card field "Mini #3" into card field "Price"
      put empty into card field "Scheduling"
      put empty into card field "Advance Booking"
    end if
  else
    if bundle is "Bundle A" then
      put card field "MBundle A" into card field "Price"
      put empty into card field "Advance Booking"
    end if
    if bundle is "Bundle B" then
      put card field "MBundle B" into card field "Price"
      put empty into card field "Advance Booking"
      put empty into card field "Health Records"
    end if
    if bundle is "Bundle #1" then
      put card field "MMini #1" into card field "Price"
      put empty into card field "Scheduling"
      put empty into card field "Library"
      put empty into card field "Advance Booking"
      put empty into card field "ASCII Transfer"
      put empty into card field "Scanning"
      put empty into card field "Guidance"
      put empty into card field "Health Records"
    end if
    if bundle is "Bundle #2" then
      put card field "MMini #2" into card field "Price"
      put empty into card field "Library"
      put empty into card field "Advance Booking"
    end if
    if bundle is "Bundle #3" then
      put card field "MMini #3" into card field "Price"
      put empty into card field "Scheduling"
      put empty into card field "Advance Booking"
    end if
  end if
end getPrice

on resetCard
  repeat with buttonNum = 1 to the number of card buttons
    set hilite of button buttonNum to false
  end repeat
  repeat with fieldNum = 1 to 17
    put empty into card field fieldNum
  end repeat
end resetCard

on showFields
  repeat with index = 19 to the number of card fields
    show card field index
    set lockText of card field index to false
  end repeat
end showFields

on hideFields
  repeat with index = 19 to the number of card fields
    hide card field index
    set lockText of card field index to true
  end repeat
end hideFields



-- part 1 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=19 top=85 right=103 bottom=111
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bundle A
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=114 top=85 right=103 bottom=206
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bundle B
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=209 top=85 right=103 bottom=301
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bundle #1
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=304 top=85 right=103 bottom=396
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bundle #2
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 5 (button)
-- low flags: 00
-- high flags: 8006
-- rect: left=399 top=85 right=103 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bundle #3
----- HyperTalk script -----
on mouseUp
  groupOne
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: A005
-- rect: left=209 top=111 right=129 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Multi-user
----- HyperTalk script -----
on mouseUp
  repeat with index = 1 to 5
    if hilite of card button index then
      getPrice short name of card button index
      exit repeat
    end if
  end repeat
end mouseUp


-- part 7 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=400 top=273 right=291 bottom=442
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Price


-- part 8 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=163 right=179 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Attendance


-- part 9 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=184 right=200 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Report Cards


-- part 10 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=205 right=221 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Marks


-- part 11 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=226 right=242 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: School Setup


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=247 right=263 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Student Details


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=42 top=268 right=284 bottom=63
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Report Manager


-- part 14 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=178 top=163 right=179 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scheduling


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=178 top=184 right=200 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Library


-- part 16 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=178 top=205 right=221 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Advance Booking


-- part 17 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=178 top=226 right=242 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Teacher Details


-- part 18 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=178 top=247 right=263 bottom=199
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Course Details


-- part 19 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=317 top=163 right=179 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: ASCII Transfer


-- part 20 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=317 top=184 right=200 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Scanning


-- part 21 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=317 top=205 right=221 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Query


-- part 22 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=317 top=226 right=242 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Guidance


-- part 23 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=317 top=247 right=263 bottom=338
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Health Records


-- part 24 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=58 top=295 right=334 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Note


-- part 25 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=125 right=138 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MBundle A


-- part 26 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=137 right=150 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MBundle B


-- part 27 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=149 right=162 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MMini #1


-- part 28 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=161 right=174 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MMini #2


-- part 29 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=7 top=173 right=186 bottom=39
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: MMini #3


-- part 30 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=125 right=138 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Bundle A


-- part 31 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=137 right=150 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Bundle B


-- part 32 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=149 right=162 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Mini #1


-- part 33 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=161 right=174 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Mini #2


-- part 34 (field)
-- low flags: 81
-- high flags: 0000
-- rect: left=473 top=173 right=186 bottom=505
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 4
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Mini #3


-- part 35 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=28 top=25 right=42 bottom=246
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Individual Module Pricing
----- HyperTalk script -----
on mouseUp
  go prev
end mouseUp



-- part 36 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=470 top=299 right=334 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 5053 / 5053
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  lock screen
  resetCard
  go prev
  send "resetCard" to this card
  go to card "Demo Shell" of this background
  unlock screen with iris close
end mouseUp



-- part contents for card part 24
----- text -----
Note: Multiple school site license pricing is available.
      Contact Chancery Software for more information.
      Prices are in effect until June 1991.

-- part contents for card part 25
----- text -----
4200

-- part contents for card part 27
----- text -----
2400

-- part contents for card part 28
----- text -----
3750

-- part contents for card part 29
----- text -----
3200

-- part contents for card part 30
----- text -----
3600

-- part contents for card part 32
----- text -----
1950

-- part contents for card part 33
----- text -----
3300

-- part contents for card part 34
----- text -----
2800

-- part contents for card part 26
----- text -----
3900

-- part contents for card part 31
----- text -----
3300